﻿Namespace ScriptingHost

    Public Class RuntimeErrorEventArgs
        Inherits EventArgs

        Public Property [Error]() As New Exception

        Public Sub New()
            MyBase.New()
        End Sub

        Public Sub New(ByVal e As Exception)
            Me.Error = e
        End Sub

    End Class

End Namespace